Public Class clsBitacoraSD
    Inherits clsBaseDatos

    Function InsertaBitacora(ByVal strTipo As String, ByVal cRegistro As String)
        Dim strSql As String

        strSql = "Insert Into Bitacora (cModulo, nIdUsuario, cAccion, cRegistro)" & _
                 " Values ('" & strKey & "'," & intUsuario & ",'" & strTipo.Trim & "'," & cRegistro & ")"
        MyBase.MovRegistro(strSql, clsBaseDatos.TipoMovimiento.Insercion)
    End Function
End Class
